home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / FCHEK284.ZIP / test / arrayclash.f < prev    next >
Encoding:
Text File  |  1994-11-06  |  159 b   |  11 lines
  1.     real a(3,7),x,y(21),    b(20)
  2.     call suba(a,x)
  3.     call suba(x,a)
  4.     call suba(y,1.0)
  5.     call suba(y(1),x)
  6.     call suba(b,x)
  7.     end
  8.     subroutine suba(w,z)
  9.     real w(21),z
  10.     end
  11.